<script>on mouseUpgo to card 6end mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text><span class="style4">ontDisplay </span><span class="style11">Use the scroll bar to read entire message</span><span class="style7">---></span><span class="style4"></span><span class="style7">This is an easy-to-use shareware program that will allow you to print out characters generated on your Macintosh as they are arranged on the keyboard.If you use this program, please remember to send the </span><span class="style6">$15 shareware fee</span><span class="style7"> to this address: Robert S. Reeser 1300 Elmira Street Williamsport, PA 17701-2112Feel free to distribute this program to your friends, but be sure to explain to them how and why shareware works the way it does. </span><span class="style8">I'd </span><span class="style9">really</span><span class="style8"> appreciate it if you'd place a copy in the data base of any other communications networks you belong to</span><span class="style7">.The program is pretty much self-explanatory. Click on the "Choose Font" button and type in the exact name of the font you wish to display. After a brief period of adjustment, the screen will display the no-shift, no-option version of the font. If you wish to see a screen display of the other versions (shift, option, option-shift), go through the screens with your right-arrow key.When you click the "Print" button of the no-shift, no-option screen, you will get all four versions on one page, a handy reference for those times when you need a hard copy of font possibilities.I hope this stack is of use to you.</span></text>
<script>on mouseUpset cursor to noneask "What font do you wish to display? (Pull down Font menu for names of installed fonts.)"put it into Fif F is empty thenexit mouseUpend ifanswer "Size for display?" with "Small" or "Regular"put it into Aif A contains "Small" thenput 12 into Zelseput 16 into Zend ifput F & " " & Z into background field 48answer "Put headings in same font?" with "No" or "Yes"put it into Aif A contains "Yes" thenrepeat with X = 48 to 49set the textFont of field X to Fset the textSize of field X to Zset the textHeight of field X to 24set the fixedLineHeight of field X to trueend repeatelserepeat with X = 48 to 49set the textFont of field X to Helveticaset the textSize of field X to Zset the textHeight of field X to 24set the fixedLineHeight of field X to trueend repeatend ifrepeat with x = 1 to 47set the textFont of field X to Fset the textSize of field X to Zset the textHeight of field X to 24set the fixedLineHeight of field X to trueend repeatend mouseUp</script>
</part>
<part>
<id>3</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>350</left>
<top>141</top>
<right>449</right>
<bottom>161</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Print</name>
<script>on mouseUpif word 1 of card field "Registration" is "Registered" thenhide card field "Registration"elseshow card field "registration"end ifhide card button "Print"hide card button "Choose Font"hide card button "Quit"hide card button "Browse"open printing with dialogprint marked cardsclose printingshow card button "Print"show card button "Choose Font"show card button "Quit"show card field "registration"show card button "Browse"end mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>450</left>
<top>130</top>
<right>511</right>
<bottom>149</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>QUIT</name>
<script>on mouseUpdoMenu "Compact Stack"type "q" with commandKeyend mouseUp</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>412</left>
<top>4</top>
<right>507</right>
<bottom>110</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Registration</name>
<script></script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>286</left>
<top>130</top>
<right>349</right>
<bottom>149</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Browse</name>
<script>on mouseUpanswer "Speed for browsing?" with "Slow" or "Fast"if it contains "Slow" thenput 240 into Welseput 60 into Wend ifgo to card 3wait W ticksgo to card 4wait W ticksgo to card 5wait W ticksgo to card 2end mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>1</id>
<text>1</text>
</content>
<content>
<layer>background</layer>
<id>2</id>
<text>2</text>
</content>
<content>
<layer>background</layer>
<id>3</id>
<text>3</text>
</content>
<content>
<layer>background</layer>
<id>4</id>
<text>4</text>
</content>
<content>
<layer>background</layer>
<id>5</id>
<text>5</text>
</content>
<content>
<layer>background</layer>
<id>6</id>
<text>6</text>
</content>
<content>
<layer>background</layer>
<id>7</id>
<text>7</text>
</content>
<content>
<layer>background</layer>
<id>8</id>
<text>8</text>
</content>
<content>
<layer>background</layer>
<id>9</id>
<text>9</text>
</content>
<content>
<layer>background</layer>
<id>10</id>
<text>0</text>
</content>
<content>
<layer>background</layer>
<id>11</id>
<text>-</text>
</content>
<content>
<layer>background</layer>
<id>12</id>
<text>=</text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text>q</text>
</content>
<content>
<layer>background</layer>
<id>14</id>
<text>w</text>
</content>
<content>
<layer>background</layer>
<id>15</id>
<text>e</text>
</content>
<content>
<layer>background</layer>
<id>16</id>
<text>r</text>
</content>
<content>
<layer>background</layer>
<id>17</id>
<text>t</text>
</content>
<content>
<layer>background</layer>
<id>18</id>
<text>y</text>
</content>
<content>
<layer>background</layer>
<id>19</id>
<text>u</text>
</content>
<content>
<layer>background</layer>
<id>20</id>
<text>i</text>
</content>
<content>
<layer>background</layer>
<id>21</id>
<text>o</text>
</content>
<content>
<layer>background</layer>
<id>22</id>
<text>p</text>
</content>
<content>
<layer>background</layer>
<id>23</id>
<text>[</text>
</content>
<content>
<layer>background</layer>
<id>24</id>
<text>]</text>
</content>
<content>
<layer>background</layer>
<id>25</id>
<text>a</text>
</content>
<content>
<layer>background</layer>
<id>26</id>
<text>s</text>
</content>
<content>
<layer>background</layer>
<id>27</id>
<text>d</text>
</content>
<content>
<layer>background</layer>
<id>28</id>
<text>f</text>
</content>
<content>
<layer>background</layer>
<id>29</id>
<text>g</text>
</content>
<content>
<layer>background</layer>
<id>30</id>
<text>h</text>
</content>
<content>
<layer>background</layer>
<id>31</id>
<text>j</text>
</content>
<content>
<layer>background</layer>
<id>32</id>
<text>k</text>
</content>
<content>
<layer>background</layer>
<id>33</id>
<text>l</text>
</content>
<content>
<layer>background</layer>
<id>34</id>
<text>;</text>
</content>
<content>
<layer>background</layer>
<id>35</id>
<text>'</text>
</content>
<content>
<layer>background</layer>
<id>36</id>
<text>z</text>
</content>
<content>
<layer>background</layer>
<id>37</id>
<text>x</text>
</content>
<content>
<layer>background</layer>
<id>38</id>
<text>c</text>
</content>
<content>
<layer>background</layer>
<id>39</id>
<text>v</text>
</content>
<content>
<layer>background</layer>
<id>40</id>
<text>b</text>
</content>
<content>
<layer>background</layer>
<id>41</id>
<text>n</text>
</content>
<content>
<layer>background</layer>
<id>42</id>
<text>m</text>
</content>
<content>
<layer>background</layer>
<id>43</id>
<text>,</text>
</content>
<content>
<layer>background</layer>
<id>44</id>
<text>.</text>
</content>
<content>
<layer>background</layer>
<id>45</id>
<text>/</text>
</content>
<content>
<layer>background</layer>
<id>47</id>
<text>\</text>
</content>
<content>
<layer>background</layer>
<id>49</id>
<text>no shift, no option</text>
</content>
<content>
<layer>card</layer>
<id>7</id>
<text>This shareware is not registered. Please send $15 fee.</text>
</content>
<name></name>
<script></script>
</card>
card_4500.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<script>on mouseUpput 0 into card field "Hidden" of card 1put "This shareware is not registered. Please send $15 fee."¬into card field¬"Registration" of card 2go to card 2end mouseUp</script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>389</left>
<top>10</top>
<right>510</right>
<bottom>162</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>115</left>
<top>73</top>
<right>269</right>
<bottom>120</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>115</left>
<top>73</top>
<right>270</right>
<bottom>119</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Click here when complete.</name>
<script>on mouseUpput "" into card field "Comparison"repeat with X = 1 to 15get the charToNum of char X of card field "Name"put it into Cput C+X into Cif C > 126 thenput X+33 into Cend ifif C < 33 thenput C+50 into Cend ifif C = 0 thenput X + 70 into Cend ifget the numtochar of Cput it after card field "Comparison"end repeatput card field "Code" into Sput card field "Comparison" into Tif T = S thenput "Click here to use stack" into card field "Click here"¬of card 1put card field "Name" into Nput 1 into card field "Hidden" of card 1put "Registered to " & N into card field "Registration" of card 2go to card 2elseput 0 into card field "Hidden" of card 1put "This shareware is not registered. Please send $15 fee." ¬into card field "Registration" of card 2go to card 2end ifend mouseUp</script>
</part>
<content>
<layer>card</layer>
<id>1</id>
<text><span class="style5">lease click in the box at right and type your name exactly as it appears on your registration letter</span><span class="style10">--------></span></text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text><span class="style5">lease click in box at left and type your code exactly as it appears on your registration </span><span class="style10"><-------</span><span class="style5">letter</span></text>
</content>
<content>
<layer>card</layer>
<id>7</id>
<text>Click here to use stack without registering (yet).</text>
</content>
<content>
<layer>card</layer>
<id>9</id>
<text><span class="style13">o Register:</span><span class="style12"></span><span class="style7"> Send me your name and address, along with your check for $15.00, and I will send you your personal code. Upon entering it correctly, you can use the program without having to go through this screen, and your print-outs will no longer be labelled as unregistered. My address is on the startup screen. Thanks! </span></text>
</content>
<content>
<layer>card</layer>
<id>10</id>
<text>Click here after you have typed in the information below.</text>
</content>
<content>
<layer>card</layer>
<id>5</id>
<text>3456789:;<=>?@A</text>
</content>
<name>Registration</name>
<script>on openCardhide card field "Comparison"put "" into card field "Name"put "" into card field "Comparison"put "" into card field "Code"end openCardon arrowKey directionexit arrowKeyend arrowkey</script>